`plotSimpleMap`<-
function(countryBorderCol=NA,countryFillCol=NA,projection="none",resolution="low"){
plot(getMap(projection=projection,resolution=resolution),add=TRUE,border=countryBorderCol,col=countryFillCol)
}
